100 REM----HBXMAS PT2---- 110 ONAGOTO150,160,170 120 GOTO190 130 REM....LOAD.... 140 NA$=NA$+"1":A=1:LOADNA$,8,1 150 A=A+1:NA$=LEFT$(NA$,LEN(NA$)-1):NA$=NA$+"2":LOADNA$,8,1 160 A=A+1:NA$=LEFT$(NA$,LEN(NA$)-1):NA$=NA$+"3":POKE53265,11:LOADNA$,8,1 170 A=0:GOTO980 180 REM...DEFINE VARIABLES,ETC... 190 BC=53280:SC=53281:V=53248:NP=0:POKEBC,6 200 REM HI-RES SPRITE POINTERS: 210 S0=24568:S1=24569:S2=24570:S3=24571:S4=24572:S5=24573:S6=24574:S7=24575 220 REM LO-RES SPRITE POINTERS: 230 P0=2040:P1=2041:P2=2042:P3=2043:P4=2044:P5=2045:P6=2046:P7=2047 240 REM....LOAD NEW SPRITE DATA.... 250 FORI=0TO127:READJ:POKE23360+I,J:NEXT 260 REM....TOP OF MAN LEANING OVER 270 DATA0,0,0,0,0,0,0,0 280 DATA0,0,0,0,0,3,192,0 290 DATA15,240,0,63,252,0,63,252 300 DATA0,63,252,0,171,240,0,170 310 DATA160,2,170,168,2,170,168,2 320 DATA170,170,2,170,170,2,170,138 330 DATA2,170,138,2,170,138,2,170 340 DATA138,2,170,138,2,170,138,0 350 REM....BOTTOM OF MAN LEANING OVER 360 DATA3,255,192,15,255,192,15,255 370 DATA192,15,255,192,15,255,192,15 380 DATA255,192,15,255,192,15,255,192 390 DATA15,255,192,15,207,192,15,207 400 DATA192,15,207,192,15,207,192,15 410 DATA207,192,15,207,192,15,207,192 420 DATA15,207,192,15,207,192,15,207 430 DATA192,15,207,192,15,207,192,0 440 REM....TOP OF WOMAN FACING LEFT 450 FORI=0TO127:READJ:POKE22784+I,J:POKE15552+I,J:NEXT 460 DATA0,60,0,3,255,0,3,255 470 DATA192,0,87,192,0,215,192,0 480 DATA87,240,1,85,0,0,84,0 490 DATA0,84,0,0,16,0,0,168 500 DATA0,2,170,0,2,170,0,10 510 DATA170,0,10,170,0,10,170,0 520 DATA1,170,0,1,170,0,1,168 530 DATA0,1,168,0,1,168,0,0 540 DATA1,168,0,1,170,0,2,170 550 DATA0,2,170,0,2,170,0,2 560 DATA170,0,2,170,0,2,170,0 570 DATA2,170,0,10,170,0,10,170 580 DATA128,0,84,0,0,84,0,0 590 DATA84,0,0,84,0,0,84,0 600 DATA0,84,0,0,84,0,0,84 610 DATA0,3,252,0,12,204,0,0 620 FORI=0TO127:READJ:POKE22656+I,J:POKE15744+I,J:NEXT 630 REM....TOP OF MAN STANDING 640 DATA3,255,0,15,255,192,63,87 650 DATA240,53,85,112,53,85,112,20 660 DATA84,80,21,85,80,21,69,80 670 DATA5,85,64,5,253,64,3,207 680 DATA0,0,84,0,10,154,128,42 690 DATA170,160,42,170,160,22,138,80 700 DATA22,170,80,22,170,80,22,170 710 DATA80,22,138,80,22,170,80,0 720 REM....BOTTOM OF MAN STANDING 730 DATA15,255,192,15,255,192,15,255 740 DATA192,15,255,192,15,255,192,15 750 DATA255,192,15,255,192,15,255,192 760 DATA15,255,192,15,207,192,15,207 770 DATA192,15,207,192,15,207,192,15 780 DATA207,192,15,207,192,15,207,192 790 DATA15,207,192,15,207,192,15,207 800 DATA192,15,207,192,15,207,192,0 810 REM....SNOWFALL.... 820 FORI=0TO63:READJ:POKE22592+I,J:POKE15680+I,J:NEXT 830 DATA128,128,128,0,0,0,0,0,0,0,0,0,16,16,16,0,0,0,0,0,0 840 DATA128,128,128,0,0,0,0,0,0,0,0,0,16,16,16,0,0,0,0,0,0 850 DATA1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 860 REM....BOY STANDING.... 870 FORI=0TO63:READJ:POKE15872+I,J:NEXT 880 DATA0,63,0,0,245,0,0,215 890 DATA0,0,213,64,0,215,0,0 900 DATA5,0,0,42,0,0,170,128 910 DATA0,170,128,0,170,128,0,170 920 DATA128,0,170,128,0,31,0,0 930 DATA31,0,0,63,0,0,63,0 940 DATA0,63,0,0,63,0,0,63 950 DATA0,0,51,0,0,21,64,0 960 : 970 GOTO1150 980 ONNPGOTO1270 990 : 1110 : 1120 REM...FADE-OUT... 1130 FORI=0TO7:POKE843,0+I:POKE844,96:SYS830:NEXT:RETURN 1140 : 1150 REM....MAIN PROGRAM.... 1160 POKEBC,6:POKESC,6:POKE53272,23 1170 GOSUB63000:PRINT" [212]HE CHILDREN'S FATHER WAS A 1180 [153]"TRAINED MEDICAL ASSISTANT, SO HE 1190 PRINT"CHECKED HIM FOR INJURIES." 1200 PRINT""CHR$(34)"[201] DON'T BELIEVE HE IS BADLY" 1210 PRINT"HURT,"CHR$(34)" SAID THE FATHER. "CHR$(34)"[200]E MUST" 1220 PRINT"HAVE LANDED FLAT ON HIS BACK AND" 1230 PRINT"THE SOFT GROUND CUSHIONED THE" 1235 PRINT"FALL."CHR$(34) 1240 D=20:GOSUB5000 1250 REM....LIVING ROOM SCENE.... 1260 GOTO10000:NP=1 1270 REM....SET UP SPRITES.... 1280 FORI=0TO14STEP2:POKEV+I,0:NEXT 1290 POKES0,108:POKEV+39,8:POKEV,48:POKEV+1,159:REM HUGGY BEAR 1300 POKEV+28,254:POKEV+37,7:POKEV+38,9:REM SET COLORS 1310 POKES1,109:POKEV+40,4:POKEV+2,105:POKEV+3,165:REM MAN TOP 1320 POKES2,110:POKEV+41,9:POKEV+4,107:POKEV+5,186:REM MAN BOTTOM 1330 POKES3,100:POKEV+42,10:POKEV+6,158:POKEV+7,165:REM WOMAN TOP 1340 POKES4,101:POKEV+43,10:POKEV+8,158:POKEV+9,186:REM WOMAN BOTTOM 1350 POKES5,87:POKEV+44,5:POKEV+10,205:POKEV+11,160:REM GIRL TOP 1360 POKES6,86:POKEV+45,6:POKEV+12,205:POKEV+13,181:REM GIRL BOTTOM 1370 POKES7,91:POKEV+46,4:POKEV+14,125:POKEV+15,184:REM LITTLE BOY 1380 POKEV+21,255 1390 POKESC,14:POKE53265,27:POKE251,128:POKE252,96:POKE253,92:SYS51456:SYS51459 1400 D=5:GOSUB5000 1410 : 1420 REM....TEXT SEQUENCES.... 1430 POKEV+21,0:SYS878:POKE53265,11:POKESC,6:SYS51459:PRINT"[147]":POKE53272,23 1440 POKEP5,242:POKEV+10,255:POKEV+11,100:POKEV+23,32:POKEV+29,32:POKEV+21,32 1450 GOSUB63000 1455 PRINT" "CHR$(34)"[212]HIS LITTLE BEAR CAME" 1457 PRINT"RUNNING TO OUR HOUSE AND" 1460 PRINT"TOLD ME ABOUT THE ACCIDENT." 1462 PRINT"[212]HEN HE TOOK ME TO A PLACE IN" 1470 PRINT"THE WOODS WHERE [201] FOUND[202]IMMY."CHR$(34) 1480 POKE53265,27:D=20:GOSUB5000 1490 POKEV+21,0:PRINT"[147]":POKEP5,246:POKEV+44,4:POKEV+21,32 1500 GOSUB63000:PRINT" "CHR$(34)"[215]ELL, LITTLE [194]EAR,"CHR$(34)" 1510 [153]"SAID THE CHILDREN'S" 1520 [153]"FATHER, "[199](34)"WE CERTAINLY ARE" 1530 [153]"GRATEFUL TO YOU FOR YOUR HELP!" 1535 [153]"(null)HAT IS YOUR NAME AND WHERE DO" 1540 [153]"YOU LIVE?"[199](34):D[178]20:[141]5000 1550 [151]V[170]21,0:[153]"LOAD":[151]P0,254:[151]V[170]39,8:[151]V,50:[151]V[170]1,100 1560 [151]V[170]23,1:[151]V[170]29,1:[151]V[170]21,1 1570 [141]63000:[153]""[163]13)[199](34)"(null)Y NAME IS LEFT$(null)CHR$CHR$(null) PEEKVALATN(null),"[199](34) 1580 [153][163]13)"SAID THE LITTLE BEAR,":[153][163]13)"AND HE TOLD HOW HE" 1590 [153][163]13)"HAD LEFT THE TOY STORE":[153][163]13)"TO SEARCH FOR A HOME 1600 PRINT"FOR HIMSELF BEFORE [195]HRISTMAS." 1610 D=20:GOSUB5000 1620 POKEV+21,0:PRINT"[147]":POKEV+44,5 1630 POKEP5,242:POKEV+10,255:POKEV+11,65:POKEV+23,32:POKEV+29,32:POKEV+21,32 1640 GOSUB63000:PRINT" "CHR$(34)"[207]H FATHER, CAN HE STAY" 1645 PRINT"HERE WITH US? [200]E CAN BE A PART" 1650 PRINT"OF OUR FAMILY!"CHR$(34):D=10:GOSUB5000 1660 PRINT" [194]Y THIS TIME THE LITTLE BOY" 1670 PRINT"HAD AWAKENED AND WAS STANDING." 1675 D=5:GOSUB5000 1680 POKEP7,248:POKEV+46,4:POKEV+14,50:POKEV+15,190:POKEV+23,160:POKEV+29,160 1690 POKEV+28,160:POKEV+21,160 1700 PRINT""CHR$(34)"[208]LEASE FATHER. [215]E'LL TAKE REAL" 1710 PRINTTAB(13)"GOOD CARE OF HIM AND HE" 1720 PRINTTAB(13)"CAN BE OUR PLAYMATE."CHR$(34) 1730 D=10:GOSUB5000 1740 POKEV+21,0:PRINT"[147]" 1750 POKEP3,243:POKEV+42,10:POKEV+6,255:POKEV+7,80:POKEV+23,8:POKEV+29,8 1760 POKEV+28,8:POKEV+21,8 1770 GOSUB63000:PRINT" "CHR$(34)"[215]ELL, [201] THINK IT" 1771 PRINT"WOULD BE NICE TO" 1772 PRINT"HAVE A [212]EDDY [194]EAR" 1780 PRINT"AROUND THE HOUSE." 1790 PRINT"[200]E WOULD BE GOOD COMPANY. [200]OW" 1795 PRINT"ABOUT IT, [200]UGGY [194]EAR, WILL YOU" 1800 PRINT"LIVE WITH US?"CHR$(34)" ASKED THE" 1805 PRINT"CHILDREN'S MOTHER." 1810 D=20:GOSUB5000 1820 POKEV+21,0:POKEV+23,0:POKEV+29,0:POKEV+28,0:PRINT"[147]" 1830 POKEP3,255:POKEV+42,8:POKEV+6,160:POKEV+7,200:POKEV+21,8 1835 GOSUB63000 1840 PRINT" "CHR$(34)"[199]OSH!"CHR$(34)" SAID [200]UGGY. "CHR$(34)"[212]HAT'S" 1850 PRINT"THE NICEST THING THAT COULD" 1860 PRINT"HAPPEN TO ME. [201] SURE WOULD LIKE" 1865 PRINT"TO LIVE WITH YOU."CHR$(34) 1870 D=10:GOSUB5000 1880 PRINT" [212]HE BOY AND GIRL WERE SO HAPPY" 1890 PRINT"TO HAVE THE BEAR LIVE WITH THEM" 1895 PRINT"THAT THEY GAVE HIM A GREAT BIG" 1897 PRINT"BEAR HUG." 1900 D=5:GOSUB5000 1910 POKEP2,248:POKEV+41,4:POKEV+4,150:POKEV+5,200 1920 POKEP0,242:POKEV+39,5:POKEV,172:POKEV+1,192 1930 POKEV+21,12:FORX=100TO150:POKEV+4,X:NEXT 1940 POKEP0,242:POKEV+39,5:POKEV,255:POKEV+1,192 1950 POKEP1,241:POKEV+40,14:POKEV+2,255:POKEV+3,213:POKEV+28,7:POKEV+21,15 1960 FORX=255TO169STEP-1:POKEV,X:POKEV+2,X:NEXT 1970 D=10:GOSUB5000:POKEV+21,8 1980 GOSUB63000:PRINT" [193]FTER EVERYONE HAD GONE TO BED 1990 [153]"LEFT$UGGY PEEKEAR SAT UNDER THE" 2000 [153]"LENHRISTMAS TREE AND THOUGHT ABOUT" 2010 [153]"HIS GOOD FORTUNE - HOW LUCKY HE" 2020 [153]"WAS TO FIND A NICE HOME. (null)HILE" 2030 [153]"HE SAT THERE IT BEGAN TO SNOW" 2040 [153]"OUTSIDE. "[199](34)"RIGHT$T LOOKS LIKE WE'LL" 2050 [153]"HAVE A WHITE LENHRISTMAS AFTER" 2060 [153]"ALL!"[199](34) 2070 D[178]20:[141]5000:[151]53280,0:[151]53281,0 2080 [153]"LOAD":[158]913:[151]S3,111:[151]V[170]6,235:[151]V[170]7,195:[151]SC,0:[151]V[170]42,9 2090 [151]251,128:[151]252,96:[151]253,92:[158]51459:[151]53281,0 2100 [143]....SNOWFALL.... 2110 [129]I[178]S4[164]S7:[151]I,97:[130] 2120 [129]I[178]43[164]46:[151]V[170]I,3:[130] 2130 [151]V[170]29,240:[151]V[170]23,240 2140 [151]V[170]8,88:[151]V[170]10,88:[151]V[170]12,138:[151]V[170]14,138 2150 [151]V[170]27,240:[151]V[170]21,248:J[178]0 2160 [129]Y[178]85[164]90:[151]V[170]9,Y:[151]V[170]11,Y[170]32:[151]V[170]13,Y:[151]V[170]15,Y[170]32 2170 [129]T[178]1[164]50:[130]T,Y 2180 J[178]J[170]1:[139]J[177]13[167]2200 2190 [137]2160 2200 [151]V[170]21,0:[151]SC,6:[158]51459 2210 [141]63000:[151]214,23:[153] 2212 [153]"CLR /EXP OPEN(LOPEN)OADSTAR (HOPEN)UGGY BEAR AGAIN CLR /EXPPRINT" 2215 [153][199](142)" I CERTAINLY HOPE THAT YOUR 2220 PRINT"CHRISTMAS IS AS GOOD AS MINE. 2230 [153]"MAY I WISH YOU A VERY... 2240 PRINTTAB(9)"[150] [223][169] [146]  [146]  [223][146]  [223][146]  [146]  [146]" 2250 PRINTTAB(9)"[153] [146][223][169] [146]  [146]  [146]  [146]  [146]  [146] [223] [146][169]" 2260 PRINTTAB(9)"[150] [146]  [146]  [146]  [146][169]  [146][169]  [146]" 2270 PRINTTAB(9)"[153] [146]  [146]  [146]  [146][223][223][146]  [146][223][223][146]  [146]" 2280 PRINTTAB(9)"[150] [146]  [146]  [146]  [146] [223]  [146] [223]  [146]" 2290 PRINT"[153][169] [223][146]  [146]  [146]  [223][146]  [146] [169] [223][146]  [146]  [223][169] [146] [169] [223][146] [169] [223][146]" 2300 PRINT"[150] [146] [184]  [146]  [146]  [146]  [146]  [146]  [146]  [146]  [146][223][169] [146]  [146]  [146]  [146]" 2310 PRINT"[153] [146]  [146]  [146]  [146][169]  [146] [223] [223][146]  [146]  [146]  [146]  [146]  [146] [223] [223][146]" 2320 PRINT"[150] [146]  [146]  [146][223][223][146]  [146]  [146]  [146]  [146]  [146]  [146]  [146]" 2330 PRINT"[153][223] [146][169]  [146]  [146]  [146] [223]  [146] [223] [146][169]  [146]  [146]  [146]  [146]  [146] [223] [146][169]" 2340 POKE198,0 2350 GETB$:IFB$<>"L"ANDB$<>"H"THEN2350 2355 A$="HELLO CONNECT":IFB$="H"THENA$="HUGGY BOOT" 2360 OPEN15,8,15,"R0:"+A$+"="+A$:INPUT#15,ER:CLOSE15 2370 IF ER<>63 THEN PRINT"[147]":END 2380 Q$=CHR$(34):POKE646,PEEK(53281):PRINT"[147]" 2390 PRINT"LOAD"Q$A$Q$",8" 2400 PRINT"RUN":POKE631,13:POKE632,13:POKE198,2:END 5000 TI$="000000":POKE198,0 5010 IFVAL(TI$)